home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)zc.d64
/
src.tape
< prev
next >
Wrap
Text File
|
2007-03-01
|
1KB
|
86 lines
MASTERCODE/S
* 10 ORG $8009
* 20 PROC=112
* 30 ENDPR=126
* 40 BYT %01000110
* 50 WRD EIND
* 60 WRD $CA2F
* 70 BYT 4.0.0.0.0
* 80 WRD PROCS
* 90 WRD $CA2F
* 100 BYT 0
* 110 PROCS
* 120 BYT 6.0.0.0.0.0.0
* 130 WRD HEAD
* 140 BYT 0
* 150 HEAD
* 160 BYT PROC.LO.HI.0.ENDPR
* 170 ADRES
* 180 LO=ADRES-ADRES/256*256
* 190 HI=ADRES/256
* 200 LDA #$00
* 210 STA $55
* 220 LDX #$18
* 230 RSID
* 240 STA $D400.X
* 250 DEX
* 260 BPL RSID
* 270 JSR $F817
* 280 BCS STOP
* 290 SEI
* 300 LDA $01
* 310 AND #$1F
* 320 STA $01
* 330 STA $C0
* 340 LDA $D011
* 350 AND #$EF
* 360 STA $D011
* 370 LDA #$7F
* 380 LDY #$90
* 390 STA $DC0D
* 400 STY $DC0D
* 410 LDA $0314
* 420 PHA
* 430 LDA $0315
* 440 PHA
* 450 LDA #INTER-INTER/256*256
* 460 LDY #INTER/256
* 470 STA $0314
* 480 STY $0315
* 490 CLI
* 500 WAIT
* 510 JSR $F6BC
* 520 CMP #$7F
* 530 BEQ ST
* 540 JSR $F82E
* 550 BEQ WAIT
* 560 ST
* 570 SEI
* 580 LDA $D011
* 590 ORA #$10
* 600 STA $D011
* 610 LDA #$7F
* 620 LDY #$81
* 630 STA $DC0D
* 640 STY $DC0D
* 650 PLA
* 660 STA $0315
* 670 PLA
* 680 STA $0314
* 690 JSR $FCCA
* 700 STA $C0
* 710 CLI
* 720 STOP
* 730 RTS
* 740 INTER
* 750 LDA $55
* 760 EOR #$0F
* 770 STA $55
* 780 STA $D418
* 790 LDA $DC0D
* 800 JMP $EA81
* 810 EIND
* 820 BYT 0
END